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LABFL QQOCOOOO0OLINE 00177112CC EX O/RSCOMMON=13F ILE S=ADOLAR/APTLIBSEND* 


FILE ANOLAR/APTLIB FRIDAY 04/22/77 12805 PM 
ALGOL NOLLAR CARDS 90001000 
ALGOL COMPILER CONTROL CARDS 00001600 
00001700 
00001800 


VARIOUS OPTIONS ARE AVAILABLE DURING COMPILATION AND MAY BE ACTIVATED 0R00001900 
DEACTIVATED BY <COMPILER CONTROL CARD>S, THESE CARDS ARE USED 1000002000 
CONTROL THE HANDLING OF SOURCE LANGUAGE INPUT BY THE COMPILER AND MAY 8E£00002100 


INTERSPERSED ANYWHERE WITHIN THE SOURCE LANGUAGE INPUT. 00002200 
a 00002300 
SYNTAX? 00002400 
Pa na 00002500 
00002600 

<COMPILER CONTROL CAROD> $8 <OPTION CONTROL CaRD> 00002700 
<VOID CARD? 00002800 

00002900 

<OPTION GROUP LIST> :2= <EMPTY> / <OPTION GROUP LIST> 00003000 
<OPTION GROUP> 00003100 

00003200 

<OPTION GROUP> tts <OPTION ACTION> <OPTION LIST> / 00003300 
<PARAMETER> / <EXPLICIT SET> 00003400 

00003500 
<OPTTON ACTION> 825 SET / RESET / POP 00003600 
00003700 

<OPTION LIST> ie <EMPTY> / <OPTION LIST> <OPTION> 00003800 
00003900 

<OPTION> 32 CARD / CHECK / <LIST OPTIONS> / LISTP / NEW / 00004000 
NEW TAPE / OMIT # $ 4 PRT / PUNCH / SEGS / 00004100 

SEQ / SEQERR / SEQXEQ / SINGLE / TAPE / VOID / 00004200 

VOIODT 7 <IDENTIFIER> 00004300 

. 00004400 

<LIST OPTIONS> s%= DEBUGN / LISTA / LIST 00004500 
00004600 

<PARAMETER> t= <ERROR LIMIT> / PAGE / <SEQUENCE INCREMENT> / 00004700 
<SFQUENCE BASE> / INFO 00004800 

00004900 

<ERROR LIMIT> t&= LIMIT <UNSIGNED INTEGERD> 00005000 
00005100 

<SEQUENCE INCREMENT> st2 + <UNSIGNED INTEGER? 00005200 
- - are 00005300 
<SEQUENCE RBASE> $32 «UNSIGNED INTEGERD> 00005400 
00005500 

<EXPLICIT SET> s2= SET <OPTION> = <OPTION EXPRESSION> 00008600 
00005700 

<OPTION EXPRESSION> :3= <OPTIUN> / NOT <OPTION> 00005800 
Bibel cotnat set _ 00005900 
<VOID CARD> t:= $vOIN <vVOID RANGE> / $VOIDT <yOID RANGE> 00006000 
00006100 

..<VOIN RANGE> t25 <EMPTY> / <VOID STRING> / "<PROPER STRING>™ 00006200 
00006300 

<VOID STRING> $32 CLANY CONTIGUOUS STRING OF CHARACTERS 00006400 
EXCLUDING BLANKS AND QUOTES] 00006500 

00006700 

00006800 


7R 


00006900 
00007000 
00007100 
SEMANTICS! 00007200 
a lhalahalatatata 00007300 
00007400 
THE ABSENCE OF ANY <COMPILER CONTROL CARD>S IN THE COMPILER INPUTO00007500 
AUTOMATICALLY SETS THE OPTIUNS "CARD™ AND "LIST" BY DEFAULT CIeF+»00007600 
TF NO <COMPILER CONTROL CARD>S ARE INCLUDED IN THE COMPILER INPUT).00007700 


THE $=CARD: 00007800 
00007900 

$ CARD LIST 00008000 
00008100 

1S AUTOMATICALLY TNCLUDFND RY THE COMPILER, 00008200 
00008300 


COMPILER CONTROL CARD INFORMATION MUST APPEAR IN COLUMNS 1°71 OF A00008400 
CARD@*IMAGE. COLUMNS 72880 ARE RESERVED FOR CONTROL INFORMATION ANDOO0008500 
A SEQUENCE NUMBER, 00008600 
. 00008700 
THE $=SIGN NORMALLY APPEARS IN COLUMN ONEs IF THE $#SIGN APPEARS00008800 
ANYWHERE FLSE» THE INFORMATION FOLLOWING IT IS STILL RECOGNIZED AS00008900 
CONTROL INFORMATIONS HNWEVERs THE CARD@ [MAGE MAY BECOME PART OF THE0O009000 
NEW SOURCE LANGUAGE FILE ANDO WILL APPEAR ON THE LINE PRINTER OUTPUTO00091{00 
LISTINGs IF ONE IS REQUESTEDe THUS» THE FILE "NEWTAPE™ MAY CONTAINO0009200 
CONTROL CAROS WHICH HAVE THEIR FIRST DOLLAR SIGN NOT APPEARING IN00009300 
COLUMN ONE, 00009400 

00009500 
THE FUNCTION OF <NPTION aCTION>S ON <COMPILER CONTROL CARD>S IS TON0009600 
CHANGE THE CURRENT STATE OF VARIGUS COMPILER <OPTION>S. ASSOCIATED00009700 
WITH EACH <OPTION> THERE IS A 47=BIT STACK IN WHICH THE HISTORY OF 00009800 
THE STATES OF THAT <OPTION> IS STORED, THE BIT aT THE TOP OF THE00009900 
STACK REPRESENTS THE CURRENT STATE OF THE <OPTION>. 00010000 

00010100 
AS WITH ANY OTHER PUSH*DOWN STACK MECHANISMs STORED INFORMATION 1800010200 
RETRIEVED ON a LAST*IN FIRST*OUT BASIS. AN <OPTION> WHOSE DEFAULT00010300 
VALUE IS RESET" IS INITIALLY ASSIGNED A STACK FILLED WITH ZEROES.«00010400 
AN <OPTION> WHOSE DEFAULT VALUE IS "SET" IS INITIALLY ASSIGNED A00010500 
STACK WITH A ONE ON TOP AND ZEROES ELSEWHERE. "SET" CAUSES THE00010600 
<OPTION> STACKS CORRESPONDING TO THE <OPTION>S FOLLOWING IT TO BE00010700 
PUSHED=DOWN ONE AIT AND A ONE TO BE PUT ON TOP OF THESE STACKS.00010800 
WRESET™ CAUSES THE <OPTION> STACKS CORRESPONDING TO THE <OPTION>S00010900 
FOLLOWING IT TO BE PUSHED NOWN ONE BIT AND A ZERO TO BE PUT ON TNP00011000 
OF THESE STACKS, "PQOP™ SIMPLY CAUSES THE <OPTION> STACKS 00011100 


“CORRESPONDING TO THE <nPTION>S FOLLOWING IT TO BE POPPED. THAT 1800011200 


THE STACKS ARE PUSHED*UP ONE BIT. 00011300 

| 00011400 
AN <OPTION LIST> WITH NO <OPTION ACTION> CAUSES ALL <OPTION>S WHICHO0011500 
APPEAR IN THE LIST TO RE SET» AND ALL <OPTION>S NOT IN THE LIST 1000011600 


BE RESET. 00011700 
00011800 

THE FOLLOWING IS A 8RIEF DISCUSSION OF EACH <OPTION> AND 00011900 
<PARAMETER>? 00012000 
00012200 

00012300 

REND. THE OPTION BENDCBEGIN@END PAIRS) IN CONJUNCTION WITHOO0012400 


LYST CAUSES THE SEQUENCE# OF THE "BEGIN" ASSOCIATED 00012410 
WITH EVEACH "END" TQ BE PRINTED ON THE LINE BELOW 00012420 
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AND TO THE RIGHT OF HTE LINE CONTAINING THE "END". 00012430 


00012500 
00012600 
THE SQURCE PROGRAM IS BEING ENTERED SOLELY FROM00012700 
THE CARD READER. 00012800 
00012900 


ALL INPUT CARD*IMAGES CWHETHER FROM CARD READERs 00013000 
TAPE, OR CAST FILES) WILL BE CHECKED FOR PROPERO0013100 
SEQUENCE ORDER. IF THE NEXT CARD@IMAGE TO BE00013200 
COMPILED HAS A LOWER SEQUENCE NUMBER THAN THEO0013300 
PREVIOUSLY COMPILED CARDs A MESSAGEs “SEQUENCE 00013400 
WARNING"s» IS PRINTED ABOVE AND TO THE RIGHT OF 00013500 
THE CARD@“IMAGE ON THE LINE PRINTER. IF NONE OF 00013600 
THE "LIST™ OPTIONS IS SET» THEN THE LINE PRINTEROOO13700 
FILE IS OPENED AND THE "SEQUENCE WARNING" MESSAGE0Q0013800 
AND THE ASSOCIATED CARD™IMAGE aRE PRINTED. THE00013900 
MESSAGE “SEQUENCE WARNING” TS ONLY A WARNING ANDOOO014000 
IS NOT CONSIDERED AN ERROR BY THE COMPILER, 00014100 

00014200 
THE NBYECT CODE PRONUCED BY THE COMPILER 1500014300 
LISTEN FOLLOWING EACH SOURCE STATEMENT. "DEBUGN"00014400 
AUTOMATICALLY SETS "LIST" BY DEFAULT. 00014500 

00014600 
THIS OPTION MUST APPEAR SOMEWHERE IN COLUMNS 3°7100014700 
INCLUSIVE AND BE PRECEDED BY A BLANK TO ELIMINATE00014800 
REDUNDANCY. ALL <COMPILER CONTROL CARD>S WHOSE00014900 
DOLLAR SIGNS APPEAR IN COLUMN ONE WILL BE LISTEDO0015000 
QN THE LINE PRINTER IF ONE OF THE <LIST OPTIONS>00015100 
1S SET. 00015200 

00015300 
IF A WORD ON AN <OPTION CONTROL CARD> IS NOTO00015400 
RECOGNIZED AS ONE OF THE COMPILER*DEFINED 00015500 
OPTIONSs THEN IT IS ASSUMED TO BE A USER#DEFINED00015600 
OPTION. IT MAY BE MANTPULATED EXACTLY AS ANYO00015700 
QTHER APTIONe THAT ISs IT MAY BE SET» RESETs OROO015800 
POPPEDe ITS PRIMARY USE IS TO EXPLICITLY SET ANDO0015900 
RESET THE COMPILER*QEFINED OPTIONS. ALL USER#=00016000 
DEFINED QGPTIONS MUST BE LESS THAN 64 CHARACTERS00016100 
IN LENGTH AND UNTQUE IN THEIR LENGTH AND/ORO0016200 
UNIQUE IN THEIR FIRST FIVE CHARACTERS» SINCE THEO0016300 
COMPILER SCANNER» UPON ENCOUNTERING A USER@™ 00016400 


DEFINED OPTION, REMEMBERS ONLY THE OPTION"S 00016500 
LENGTH AND FIRST FIVE CHARACTERS, 00016600 
00016700 
QUADRUPLE SPACING WILL BE PERFORMED AFTER EACH 00016710 
END MF A PROCEDURE, 00016720 
00016730 


THE APPEARANCE OF THE WORD “INFO” CAUSES THEON0016800 


ELBAT ANDO INFO TABLES OF THE COMPILER TO BE00016900 


DUMPED IMMEDIATELY ONTO THE LINE FILE. THIS 1500017000 
FOR COMPTLER DEBUGGING ONLY» AND SHOULN NOT BE00017100 
USED OTHERWISE» SINCE VOLUMINQUS OUTPUT IS 00017200 


PRODUCED. 00017300 
00017400 

COMPILATION WILL BE TERMINATED IF THE NUMBER OF 00017500 
. 00017700 

00017800 
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NEW TAPE 


OMIT 


PAGE 


PRT 


PUNCH 


SEGS 


00017900 
00018000 
ERRORS NETECTEN BY THE COMPILER EQUALS OR EXCEEDS00018100 
THE <ERROR LIMIT>. . 00018200 
00018300 


THIS <OPTION> CAUSES ALL INPUT TO BE LISTED00018400 
INCLUDING ALL “OMITTED” CARD@IMAGES (SEE "OMIT"00018500 
<OPTION>). 00018600 

00018700 
THE SOURCE PROGRAM INPUT ACTUALLY COMPILED IS00018800 
LISTED. IN AODITIONs THE <OPTION> "SEGS" 1S ALSQ00018900 
SET BY DEFAULT. IF THE <LIST OPTIONS> ARE ALL00019000 
RESETs THEN ONLY SYNTAX ERROR MESSAGES» SEQUENCE00019100 
ERROR MESSAGES» AND THE ASSOCIATED CARD@IMAGES00019200 
WILL BE LISTED ON THE PRINTER. 00019300 

00019400 
IF ‘"LISTP™ IS SET AND THE <LIST OPTIONS> ARE00019500 
RESET» THEN ONLY THE CARD@IMAGES INPUTTED FROM00019600 
THE CARD@*READER WILL BE LISTED ON THE LINE00019700 
PRINTER. IF ANY OF THE <LIST OPTIONS> IS SET»00019800 
"LISTP™ 1S IGNORED. 00019900 

00020000 
THIS <OPTION> CAUSES A NEW SOURCE FILE TO BE00020100 
CREATED ON A TAPE FILE KNOWN AS "NEWTAPE” AND00020200 
LABELED "OCROIMG", ALL COMPILED CARD@IMAGES AND00020300 
"OMITTED" CSEE “OMIT") CARD*IMAGES ARE INCLUDED00020400 
IN THE NEW SOURCE LANGUAGE FILE. THE NEWTAPE00020500 
FILE WILL WE BLOCKED (X»56210)« THE "NEWTAPE"00020600 
FILE MAY BE LABEL=EQUATED 10 DISK» IN WHICH CASE00020700 


IT WILL BE BLOCKED (x%+105150). 00020800 
| 00020900 

THIS <OPTION> 7S IDENTICAL TO THE <OPTION> "NEW",00021000 
00021100 


ALL CARD=IMAGES INPUTTED» WHETHER FROM CARD,00021200 
TAPE» OR DISK» WILL NOT BE COMPILED. THAT IS» IF00021300 
ONE OF THE <LIST OPTIONS> IS SET» THEN THE CARD=00021400 


IMAGES WILL BE LISTED BUT FLAGGED BY THE WORD00021500 


"OMIT%s AND IF THE "NEW" <OPTION> IS SETs THENO0021600 
THE CARD"IMAGES WILL BE WRITTEN ON THE "NEWTAPE"00021700 
FILE. 00021800 

00021900 
THE APPEARANCE OF THE WORD PAGE" CAUSES THEO0022000 
NMUTPUT LISTING TO BE SKIPPED TO THE TOP OF A NEW00022400 


PAGE. 00022200 
00022300 
RELATIVE PRT AND STACK LOCATIONS ASSIGNED BY THEO0022400 
COMPILER WILL BE LISTED ON THE LINE PRINTER. 00022500 
00022600 


IF A COMPILED CARD=IMAGE CONTAINS A SYNTAX ERROR»00022700 
THEN THAT CARD@IMAGE WILL BE PUNCHED IN 17800022800 
URIGINAL FORM ON AN ONLINE CARD PUNCH. 00022900 
00023000 
00023200 
00023300 


00023400 
00023500 


THE BEGINNING AND ENDING SEGMENT MESSAGES WILL BE00023600 


: : : i ' : : 
i : ‘ : : 


SEQ 


SEQERR 


SEQXEQ@ 


SINGLE 


TAPE 


VOTO 


LISTED ON THE LINE PRINTER. SINCE THESE MESSAGESQ0023700 
ARE AMONG THE THINGS THAT ARE PRINTED WHEN ONE OF 00023800 


THE <LIST OPTIONS> SET* THIS OPTION HAS FFFECT00023900 
ONLY WHEN ALL <LIST OPTIONS> ARE RESETe 00024000 

00024100 
THE LINE PRINTER OUTPUT LISTINGs IF ANYs AND THEO0024200 
"NEWTAPE” FILEs IF ANYs WILL CONTAIN NEW SEQUENCE00024300 
NUMBERS, AS EACH CARD™IMAGE IS OUTPUTs IT 1800024400 
ASSIGNED A SEQUENCE NUMBER EQUAL TO THE CURRENTO0024500 
VALUE OF THE <SEQUENCE BASE>, THE <SEQUENCE00024600 
BASE> IS THEN INCREASED BY THE VALUE OF THEO0024700 
<SEQUENCE INCREMENT>. IF THE <SEQUENCE BASE> 1800024800 
UNSPECIFIED» THEN A VALUE OF 10000 IS ASSUMED.00024900 
IF THE <SEQUENCE INCREMENT> IS UNSPECIFIEDs THENOOO025000 
A VALUE OF 1000 1S ASSUMED, 00025100 

00025200 
"SEQERR" CAUSES SEQUENCE ERRORS TO BE FLAGGED AS00025300 
COMPILATION ERRORS IF THE “CHECK <OPTION> IS SET00025400 

00025500 
A PROGRAM COMPILED WITH THIS <OPTION> SET WILL00025600 
CAUSE EXECUTION TIME TERMINATION ERRORS (€£eGe200025700 
DIV BY ZERO» INVALID INDEXs ETCe) TO REFERENCE00025800 
THE SEQUENCE NUMBER WHERE THE ERROR OCCURREDO0025900 
RATHER THAN THE SEGMENT AND ADDRESS, THIS 00026000 
<OPTION> HAS MEANING ONLY IF IT PRECEDES THE00026100 
FIRST EXECUTABLE STATEMENT» AND IT MAY NOT BE00026200 
RESET. ONCE IT HAS BEEN SET» ANY ATTEMPT 1000026300 
RESET IT WILL BE IGNORED, OPTION IS SET FOR T/Se 00026400 

00026500 
CAUSES THE OUTPUT LISTING TO BE SINGLE=SPACED.00026600 
WHEN SINGLE" IS RESET OR NOT SPECIFIED» THEO0026700 
NUTPUT LISTING IS NOUBLE=SPACED. 00026800 

00026900 
CARD INPUT IS TO BE MERGED WITH TAPE COR DISK)00027000 
INPUT. IF MATCHING SEQUENCE NUMBERS OCCUR» THE00027100 
CARD INPUT OVERRIDES THE TAPE INPUTe IF *TAPE"00027200 


1S RESET» THE TAPE INPUT IS TOTALLY IGNORED, 00027300 
00027400 
THERE ARE TWO METHODS OF VOIDING: 00027500 
00027600 


Ae IF THE <OPTION> "VOID" APPEARS ON A "SET"00027700 
CARD» THEN ALL INPUT FROM THE FILES "TAPE"00027800 

AND "CARD" IS IGNORED BY THE COMPILER 00027900 
CEXCEPT $& CONTROL CARDS» WHERE THE $#SIGNO0028000 
APPEARS IN CARO COLUMNS 1 OR 2) UNTIL "VOID"00028100 

IS RESET OR POPPED INTO A RESET STATE 00028200 
00028300 

Be WHEN THE <VOID CARD> FORM IS USEDs THEN ALLOOO28400 
CARD“IMAGES INPUTTED FROM THE “TAPE” ANDOOO28500 
00028700 

00028800 

00028900 

00029000 

"CARD" FILES UP TO BUT NOT INCLUDING ANY00029100 
CARD@“IMAGE WITH A SEQUENCE NUMBER THE SAMEQ0029200 

AS THE <VOID RANGE? WILL BE 1) DISCARDED» 2)00029300 

NOT LISTED IF LISTING IS BEING DONEs AND 3)00029400 


oe 
H e@ 
a s 


NOT INCLUDED ON ANY "NEWTAPE™ FILE IF ONE 1800029500 
BEING CREATED, IF THE «VOID RANGE> 1800029600 
<EMPTY>» THEN ANY CARD*IMAGES WITH THE SAME00029700 
SEQUENCE NUMBER AS THE <VQID CARD> WILL BE00029800 
DISCARDED, ALONG WITH THE <vVOID CARD>. IF00029900 
<VONID STRING> OR <PROPER STRING> IS LESS00030000 
THAN EIGHT CHARACTERS LONGs THEN THE 00030100 
COMPILER WILL RIGHT"ADJUST AND FILL®IN 00030200 
LEADING ZEROES (CON THE LEFT). IF <yOIp00030300 
STRING> OR <PROPER STRING> IS MORE THANOOO30400 
FIGHT CHARACTERS LONG» THEN THE COMPILERO0030500 
WILL USE ONLY THE FIRST EIGHT CHARACTERS (€0N00030600 


VOIDT 


XREF 


THE LEFT), 


00030700 
00030800 


EITHER THE <OPTION> FORM OR THE <VOID CARD>00030900 
FORM SHOULD BE USED EXCLUSIVELY. IF BOTHO0031000 


FORMS ARE INTERMIXED» THEN THE RESULTS WILL00031100 


BE UNPREDICTABLE. 


00031200 
00031300 


THIS METHOD OF VOIDING IS IDENTICAL TO USINGO0031400 
"VOID" (SEE ABOVE) WITH ONE EXCEPTIONs ONLY CARD#00031500 


IMAGES FROM THE "TAPE" FILE WILL BE VOIDED, 
CARD@IMAGES FROM THE "CARD" FILE WHICH 


ANY00031600 
FALLO0031700 


WITHIN THE <VOID RANGE> OR FALL BETWEEN THEO0031800 
SETTING AND RESETTING OF THE "VOIOT" <OPTION>00031900 


EXAMPLES: 


WILL RE COMPILEO. 00032000 

OPTION WILL PROVIDE A INDENTIFIER CROSS*REFERENCE 00032010 
LISTING AT THE THE END OF THE COMPILATIONe IT IS 00032020 
RECOMENDED THAT THIS OPTION BE SETPRIOR TO 00032030 

TA THE FIRST *BEGIN” OF THE PROGRAM AND RE@= 00032040 

MAIN SET UNTIL ENO OG PROGRAM, 00032050 
00032100 

00032200 

00032300 

00032400 

$CARD LIST SINGLE 00032500 
$TAPE LIST SINGLE PRT CHECK SEQXEQ 00032600 
$ DEBUGN TAPE 00032700 
$ SET LIST PRT TAPE 00032800 
$ RESET TAPE» PRT 00032900 
$TAPE NEW PRT 00033000 
$SET LIST»SINGLEs RESET PRT» NEW 00033100 
SRESET LIST 00033200 
STAPE NEW TAPE 00033300 
$ INFO 00033400 
$ PAGE 00033500 
$ RESET TAPE PAGE 00033600 
$ SET INFO CHECK 00033700 
CINFO TABLE WILL BE DUMPED» INFO CANNOT BE SET/RESET) 00033800 

$SET OMIT=DEBUGGING 00033900 
$ SET OMIT=NOT ALGOL 00034000 
00034200 

00034300 

00034400 

er ees 00034500 
$ SET OMITSOUMDUM 00034600 
$SET OMIT=NQT PRT 00034700 
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LABEL 


$ POP OMIT 
ADDITIONAL DOLLAR#CARN SIDE AFFECTS IN ALGOL 


A NINES CARD IS NO LONGER NEEDED IN A PATCH DECK WHEN 


MERGING 


THE "CARD" INPUT FILE 2S CLOSED IMMEDIATELY AFTER THE 
"ENO@OF*FILE”™ CaRD IS READs INSTEAD OF AT END OF COMPIL= 


ATION, 


"SGL" IS NO LONGER RECONIZED AS A RESERVED DOLLAR CARD 


OPTION, 


WITH TAPE INPUT. 


“SINGLE” MUST BE USED. 


UNRECONIZED OPTIONS ARE ASSUMED TO BE USER DEFINDED 
DOLLeCARD OPTIONS, 


THE NUMBER UF CARNS PROCESSED IS NOW PRINTED AT THE BOTTOM 


OF THE COMPILE TIME LISTING. ¢ IF LISTING REQUESTED) 


"$VOIN" MAY NOW BE USED TO VOID RECORDS IN THE MIODLE OF 


A COMMENT, 


— ODOOOODOOLINE 


00034800 
90034900 
00035000 
00035100 
00035200 
00035300 
00035400 
00035500 
00035600 
00035700 
00035800 
00035900 
00036000 
00036100 
00036200 
00036300 
00036400 
00036500 
00036600 
00036700 
00036800 
00036900 
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